home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / CIVIL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.0 KB  |  503 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 20 [143] ** TO OUR BEST KNOWLEDGE THIS
  10. 21 [143]    PROGRAM IS FREE FOR
  11. 22 [143]    DUPLICATION IN CANADA.
  12. 23 [143]    IF YOU HAVE CONTARY
  13. 24 [143]    INFORMATION, PLEASE
  14. 25 [143]    CONTACT COMMODORE CANADA AND
  15. 26 [143]    EVERY EFFORT WILL BE MADE TO
  16. 27 [143]    WITHDRAW COPIES OF THIS
  17. 28 [143]    PROGRAM.
  18. 30 :
  19. 35 [143] +++ INPUT SECTION +++
  20. 40 [151]UO,0:UR$[178]"":UI$[178]""
  21. 42 [139]UL[178]0[167]UL[178]80
  22. 43 [139] US$[179][177]"" [167] US$[178]US$[170]UX$
  23. 45 [153]"  CMDCMD";:[151]UC,0
  24. 50 [161]UI$:[139]UI$[178]""[167]50
  25. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  26. 60 [139]UI$[178][199](20)[167]105
  27. 62 [139] [195](UR$)[178][177]UL[167]50
  28. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  29. 70 UR$[178]UR$[170]UI$
  30. 75 [153]UI$;
  31. 80 [137]50
  32. 85 [143] +++ CHECK FOR HELP REQUEST +++
  33. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  34. 95 [139]UF[178]1[167][141]240
  35. 100 UF[178]0:[153]:[142]
  36. 102 [143] ++ CHECK DELETE ++
  37. 105 [139][195](UR$)[179]1[167]50
  38. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  39. 115 [153]"CMD  CMDCMD";:[137]50
  40. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  41. 125 [139][195](US$)[178]0[167]150
  42. 127 US$[178]US$[170]UX$
  43. 130 [129]US[178]1[164][195](US$)
  44. 135 [139]UI$[178][202](US$,US,1)[167][142]
  45. 140 [130]
  46. 145 UI$[178]"":[142]
  47. 150 [143] ** STANDARD INPUT **
  48. 152 [139][198](UI$)[178]46[167][142]
  49. 155 [139]UI$[178][199](32)[167][142]
  50. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  51. 165 [142]
  52. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  53. 175 [142]
  54. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  55. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  56. 187 [142]
  57. 190 UI$[178]"":[142]
  58. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  59. 197 [141]250
  60. 200 [141]245
  61. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  62. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  63. 215 UZ[178]1:UV%[178][194](UT)
  64. 216 [137]300
  65. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  66. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  67. 219 [153]"LOAD";
  68. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  69. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  70. 230 [151]U1,U1%
  71. 232 [151]U2,U2%
  72. 233 [151]U4,U4%
  73. 234 [151]U3,U3%[171]1
  74. 235 [137]35
  75. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  76. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  77. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  78. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  79. 255 [142]
  80. 300 [143] ** MENU **
  81. 301 :
  82. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  83. 303 :
  84. 305 [153]"                MENU"
  85. 310 [153]" --------------------------------------"
  86. 315 [153]"       1.   BEGIN CIVIL BATTLES"
  87. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  88. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  89. 335 [153]"       4.   QUIT"
  90. 340 [153]" --------------------------------------"
  91. 345 [153]"       PRESS A NUMBER KEY (1-4) ";
  92. 350 UL[178]1:US$[178]"1234":[141]35:[143] INPUT ROUTINE
  93. 351 [139][195](UR$)[177]1[167]300
  94. 352 US$[178]""
  95. 355 [145][197](UR$)[141]1000,400,500,396
  96. 360 [137]300
  97. 395 [143] ** RE-ENABLE STOP KEY AND END **
  98. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  99. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  100. 398 [153]"CONTLOAD":[128]
  101. 399 [141]875:[142]
  102. 400 [143] ** STUDENT INSTRUCTIONS **
  103. 401 UT$[178]" LENIVIL PEEKATTLES": UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST"
  104. 402 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  105. 403 [141]850
  106. 404 [153]" (null)HIS IS A CIVIL WAR SIMULATION."
  107. 405 [153]" (null)O PLAY, TYPE A RESPONSE WHEN THE"
  108. 406 [153]" COMPUTER ASKS. (null)EMEMBER THAT ALL"
  109. 408 [153]" FACTORS ARE INTERRELATED AND THAT"
  110. 412 [153]" FACTS AND FIGURES USED ARE BASED ON"
  111. 414 [153]" THE ACTUAL OCCURRENCE. (null)OST BATTLES"
  112. 416 [153]" TEND TO RESULT AS THEY DID IN THE"
  113. 418 [153]" CIVIL WAR, BUT IT ALL DEPENDS ON YOU!!"
  114. 420 [141]835:UP[178]1:[141]850
  115. 422 [153]" (null)HE OBJECT OF THE GAME IS TO WIN"
  116. 424 [153]" AS MANY BATTLES AS POSSIBLE."
  117. 426 [153]" (null)OUR CHOICES FOR DEFENSIVE STRATEGY ARE"
  118. 428 [153]"    (1) ARTILLERY ATTACK"
  119. 430 [153]"    (2) FORTIFICATION AGAINST FRONTAL           ATTACK"
  120. 432 [153]"    (3) FORTIFICATION AGAINST FLANKING          MANEUVERS"
  121. 434 [153]"    (4) FALLING BACK"
  122. 435 [141]835:UP[178]2:[141]850
  123. 438 [153]" (null)OUR CHOICES FOR OFFENSIVE STRATEGY ARE"
  124. 440 [153]"        (1) ARTILLERY ATTACK"
  125. 442 [153]"        (2) FRONTAL ATTACK"
  126. 444 [153]"        (3) FLANKING MANEUVER"
  127. 446 [153]"        (4) ENCIRCLEMENT"
  128. 448 [153]" (null)OU MAY SURRENDER BY TYPING A 5 FOR     YOUR STRATEGY"
  129. 450 [153]" (null)OU ARE THE CONFEDERACY"
  130. 452 [153]"CHR$OOD (null)UCK!WAIT"
  131. 485 [141]835
  132. 490 [139]UZ[178]1[167][158]UP%:[137]217
  133. 499 [142]
  134. 500 [143] ** TEACHER INSTRUCTIONS **
  135. 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  136. 502 UT$[178]" LENIVIL PEEKATTLES":UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
  137. 503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  138. 504 [153]"   THIS PROGRAM IS IN THE PUBLIC"
  139. 505 [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
  140. 506 [153]"   PLEASE CONTACT:"
  141. 507 [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
  142. 508 [153]"          3370 (null)HARMACY ATNVE.
  143. 509 PRINT"          [193]GINCOURT, [207]NTARIO"
  144. 510 PRINT"          [195]ANADA   [205]1[215] 2[203]4"
  145. 511 PRINT"          (416) 499-4292"
  146. 512 UP=1:GOSUB 835:GOSUB 850:
  147. 513 PRINT"     [208]ROGRAM [206]AME: [195]IVIL [194]ATTLES
  148. 514 [153]"     (null)RITTEN PEEKY  : (null)NKNOWN
  149. 515 PRINT"     [213]PGRADED [194]Y :          
  150. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  151. 519 PRINT"         [208][197][212] 64 [195][207][205][208][213][212][197][210]
  152. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  153. 580 GOSUB835
  154. 590 IFUZ=1THENSYSUP%:GOTO217
  155. 599 RETURN
  156. 600 REM ** PROGRAM MODIFICATION INST **
  157. 601 PRINT"[147]":POKEUT,UL%
  158. 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
  159. 660 GOSUB835
  160. 690 IFUZ=1THENSYSUP%:GOTO217
  161. 699 RETURN
  162. 700 REM ** TO USE 8032 LOAD CBM4032 **
  163. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  164. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  165. 730 [158]UU[170]71
  166. 740 [128]
  167. 797 [143] ** TO USE 8032 LOAD CBM4032 **
  168. 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
  169. 799 [158]1093:[128]
  170. 800 [143] ** T I T L E   P A G E **
  171. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  172. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  173. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  174. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  175. 809 [161] A$:[139] A$[179][177]"" [167] 300
  176. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  177. 812 [153]"STEP  WAIT
  178. 814 PRINT" [146]   [146][169]
  179. 816 [153]" WAIT  TAB((null)
  180. 818 PRINT"[223]  [146]
  181. 820 [153]"C O M M O D O R E
  182. 822 PRINT"EDUCATIONAL
  183. 824 [153]"SOFTWARE
  184. 826 REM ** COMMODORE LOGO **
  185. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  186. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  187. 830 T1$="":T2$="":T3$="":T4$="":I=0
  188. 832 GOTO300
  189. 835 REM ** SPACE BAR PRESS **
  190. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  191. 844 GETUI$:IFUI$<>" "THEN844
  192. 846 RETURN
  193. 850 REM ** PAGE DESIGN ROUTINE **
  194. 852 UP=UP+1
  195. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  196. 860 PRINT" --------------------------------------"
  197. 864 IFUH<>0THEN870
  198. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  199. 870 UH=0:PRINT"":RETURN
  200. 875 REM ** PLEASE WAIT REMARK **
  201. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  202. 885 RETURN
  203. 900 REM ** SET UP VARIABLES **
  204. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  205. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  206. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  207. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  208. 905 UD$=""
  209. 906 UP$="                                       "
  210. 907 UT$=" [195][201][214][201][204][160][194][193][212][212][204][197][211][160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  211. 908 RETURN
  212. 910 REM ** SET VARIABLES **
  213. 915 GOSUB900
  214. 916 :
  215. 917 :
  216. 920 REM ** CHECK FOR 8032 **
  217. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  218. 930 IFPEEK(UB+40)<>96THENGOSUB700
  219. 931 REM ** MEMORY CHECK **
  220. 932 IF FRE(0)>2000THEN937
  221. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  222. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  223. 935 SYSUU+71
  224. 936 END
  225. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  226. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  227. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  228. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  229. 943 POKE1104,145:POKE1105,234:POKE1082,234
  230. 945 IFPEEK(50003)<>160THEN955
  231. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  232. 955 IFPEEK(50003)<>1THEN990
  233. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  234. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  235. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  236. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  237. 965 SYSUU+48:REM DISABLE STOP KEY
  238. 970 GOSUB800:REM TITLE
  239. 980 GOTO300:REM MENU
  240. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  241. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  242. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  243. 1002 RESTORE:CLR:GOSUB900
  244. 1003 POKEUT,UL%:UP=0:UG$="":UT$=" [195]IVIL [194]ATTLES"
  245. 1400 UP=0
  246. 1440 READM1,M2,C1,C2,M,A,U
  247. 1450 I1=10+(L-W)*2
  248. 1460 I2=10+(W-L)*2
  249. 1470 D1=100*INT((M1*(100-I1)/2000)*(1+(R1-Q1)/(R1+1))+.5)
  250. 1480 D2=100*INT(M2*(100-I2)/2000+.5)
  251. 1490 F1=5*M1/6
  252. 1500 A1=Z
  253. 1510 FORU=1TO4
  254. 1520 REM  PRINT
  255. 1530 NEXTU
  256. 1535 GOSUB850
  257. 1540 PRINT" [212]HIS IS THE BATTLE OF ";
  258. 1550 GOSUB2580
  259. 1560 PRINT"              [195]ONFEDERCY      [213]NION"
  260. 1561 P$(1)=STR$(INT(M1*(1+(P1-T1)/(M3+1))))
  261. 1562 P$(2)=STR$(INT(M2*(1+(P2-T2)/(M4+1))))
  262. 1563 P$(3)="$"+STR$(D1):P$(4)="$"+STR$(D2)
  263. 1564 P$(5)=STR$(I1+15)+"%":P$(6)=STR$(I2)+"%"
  264. 1570 PRINT" [205]EN "TAB(21-LEN(P$(1)))P$(1)TAB(35-LEN(P$(2)))P$(2)
  265. 1590 PRINT" [205]ONEY"TAB(21-LEN(P$(3)))P$(3)TAB(35-LEN(P$(4)))P$(4)
  266. 1600 PRINT" [201]NFLATION"TAB(21-LEN(P$(5)))P$(5)TAB(35-LEN(P$(6))+2)P$(6)
  267. 1620 PRINT" (1) [200]OW MUCH DO YOU WISH TO SPEND FOR":PRINT"     FOOD ? ";
  268. 1630 US$="1234567890":UL=9:GOSUB35:F=VAL(UR$):GOSUB4000
  269. 1640 PRINT" (2) [200]OW MUCH DO YOU WISH TO SPEND FOR":PRINT"     SALARIES ? ";
  270. 1650 US$="1234567890":UL=9:GOSUB35:S=VAL(UR$):GOSUB4000
  271. 1660 PRINT" (3) [200]OW MUCH DO YOU WISH TO SPEND FOR       AMMUNITION ? ";
  272. 1670 US$="1234567890":UL=9:GOSUB35:B=VAL(UR$)
  273. 1675 GOSUB835:GOSUB850
  274. 1690 IF F+S+B<=D1THEN1720
  275. 1700 PRINT" [212]HINK AGAIN! YOU HAVE ONLY $";D1
  276. 1710 UP=UP-1:FORA=1TO1800:NEXT:GOSUB850:GOTO1620
  277. 1720 O=(2+F^2+S^2)/F1^2+1
  278. 1730 IFO<10THEN1760
  279. 1740 PRINT" [205]ORALE IS HIGH"
  280. 1750 GOTO1800
  281. 1760 IFO<5THEN1790
  282. 1770 PRINT" [205]ORALE IS FAIR"
  283. 1780 GOTO1800
  284. 1790 PRINT" [205]ORALE IS POOR"
  285. 1800 IFM<>3THEN1830
  286. 1810 PRINT" [217]OU ARE ON THE OFFENSIVE"
  287. 1820 GOTO1870
  288. 1830 IFM<>1THEN1860
  289. 1840 PRINT" [217]OU ARE ON THE DEFENSIVE"
  290. 1850 GOTO1870
  291. 1860 PRINT" [194]OTH SIDES ARE ON THE OFFENSIVE"
  292. 1870 PRINT
  293. 1880 IFM=1THEN1950
  294. 1890 PRINT" [217]OUR CHOICES FOR OFFENSIVE STRATEGY ARE"
  295. 1900 PRINT"    (1) ARTILLERY ATTACK"
  296. 1910 PRINT"    (2) FRONTAL ATTACK"
  297. 1920 PRINT"    (3) FLANKING MANEUVER"
  298. 1930 PRINT"    (4) ENCIRCLEMENT"
  299. 1940 GOTO2000
  300. 1950 PRINT" [217]OUR CHOICES FOR DEFENSIVE STRATEGY ARE"
  301. 1960 PRINT"    (1) ARTILLERY ATTACK"
  302. 1970 PRINT"    (2) FORTIFICATION AGAINST FRONTAL           ATTACK"
  303. 1980 PRINT"    (3) FORTIFICATION AGAINST FLANKING          MANEUVERS"
  304. 1990 PRINT"    (4) FALLING BACK"
  305. 2000 PRINT" [217]OUR STRATEGY ? ";
  306. 2010 US$="1234":UL=1:GOSUB35:Y=VAL(UR$)
  307. 2020 IF Y=5THENTGOSUB850:PRINT"":GOTO 3530
  308. 2030 PRINT
  309. 2036 GOSUB835:GOSUB850
  310. 2040 PRINT"                  [195]ONFEDERCY  [213]NION"
  311. 2050 C5=(2*C1/5)*(1+1/(2*(ABS(INT(4*RND(1)+1)-Y)+1)))
  312. 2060 C5=INT(C5*(1+1/O)*(1.28+F1/(B+1))+.5)
  313. 2070 IFC5+100/O<M1*(1+(P1-T1)/(M3+1))THEN2120
  314. 2080 C5=INT(13*M1/20*(1+(P1-T1)/(M3+1)))
  315. 2090 E=7*C5/13
  316. 2100 U=1
  317. 2110 GOTO2130
  318. 2120 E=100/O
  319. 2130 PRINT" [195]ASUALTIES",C5,INT((17*C2*C1/(C5*20)+.5))
  320. 2140 PRINT" [196]ESERTIONS",INT(E),INT(5*O)
  321. 2150 PRINT
  322. 2160 IFC5-C1>=0THEN2190
  323. 2170 PRINT" [217]OUR CASUALTIES WERE";INT(100*(C1-C5)/C1+.5);"% LESS THAN"
  324. 2180 GOTO2200
  325. 2190 PRINT" [217]OUR CASUALTIES WERE";INT(100*(C5-C1)/C1+.5);"% MORE THAN"
  326. 2200 PRINT" THE ACTUAL CASUALITIES AT ";
  327. 2210 A1=1
  328. 2220 GOSUB2580
  329. 2222 IFLEN(F$)>12THENPRINT"[145]":PRINT:PRINT" ";F$:GOTO2230
  330. 2224 PRINTF$
  331. 2230 IFU=1THEN2250
  332. 2240 IFC5+E<17*C2*C1/(C5*20)+.5THEN2280
  333. 2250 PRINT" [217]OU LOSE ";
  334. 2260 L=L+1
  335. 2270 GOTO2300
  336. 2280 PRINT" [217]OU WIN ";
  337. 2290 W=W+1
  338. 2300 A1=1:  GOSUB2580
  339. 2305 PRINTF$
  340. 2310 IFW=8THENGOSUB850:PRINT"":GOTO3550
  341. 2320 T1=T1+C5+E
  342. 2330 T2=T2+17*C2*C1/(C5*20)+.5*O
  343. 2340 P1=P1+C1
  344. 2350 P2=P2+C2
  345. 2360 Q1=Q1+(F+S+B)
  346. 2370 R1=R1+M1*(100-I1)/20
  347. 2380 M3=M3+M1
  348. 2390 M4=M4+M2
  349. 2400 IFA=14THEN3560
  350. 2405 GOSUB835
  351. 2420 IFZ$="N"GOTO2410
  352. 2430 GOTO1440
  353. 2440 DATA18000,18500,1967,2708,1,1,0
  354. 2450 DATA40000,44894,10699,13047,3,2,0
  355. 2460 DATA95000,115000,20614,15849,3,3,0
  356. 2470 DATA54000,63000,10000,14000,2,4,0
  357. 2480 DATA40000,50000,10000,12000,3,5,0
  358. 2490 DATA75000,120000,5377,12653,1,6,0
  359. 2500 DATA38000,45000,11000,12000,1,7,0
  360. 2510 DATA32000,90000,13000,17197,2,8,0
  361. 2520 DATA50000,70000,12002,19000,1,9,0
  362. 2530 DATA72500,85000,20000,23000,3,10,0
  363. 2540 DATA66000,60000,18000,16000,2,11,0
  364. 2550 DATA37000,60000,6700,5800,2,12,0
  365. 2560 DATA62000,110000,17723,18000,2,13,0
  366. 2570 DATA65000,100000,8500,3700,1,14,0
  367. 2580 IFA<>1THEN2680
  368. 2590 F$="[194]ULL [210]UN"
  369. 2600 IFA1=1THEN3520
  370. 2605 PRINTF$
  371. 2610 PRINT"         [202]ULY 21,1861"
  372. 2620 PRINT" [199]EN. [194]EAUREGARD COMMANDING THE SOUTH "
  373. 2630 PRINT" MET THE UNION FORCES WITH [199]EN. [205]CDOWELL
  374. 2640 [153]"ON IN A PREMATURE BATTLE AT PEEKULL (null)UN."
  375. 2650 [153]" CHR$EN. MID$ACKSON HELPED PUSH BACK THE UNION"
  376. 2660 [153]"ON ATTACK"
  377. 2670 [137]3520
  378. 2680 [139]A[179][177]2[167]2750
  379. 2690 F$[178]"(null)HILOH"
  380. 2700 [139]A1[178]1[167]3520
  381. 2705 [153]F$
  382. 2710 [153]"          ATNPRIL 6-7,1862"
  383. 2720 [153]" (null)HE LENONFEDERATE SURPRISE ATTACK AT "
  384. 2730 [153]" (null)HILOH FAILED DUE TO POOR ORGANIZATION."
  385. 2740 [137]3520
  386. 2750 [139]A[179][177]3[167]2830
  387. 2760 F$[178]" (null)EVEN STR$AYS"
  388. 2770 [139]A1[178]1[167]3520
  389. 2775 [153]F$
  390. 2780 [153]"     MID$UNE 25 - MID$ULY 1,1862"
  391. 2790 [153]" CHR$EN. (null)EE UPHELD THE OFFENSIVE THROUGH-"
  392. 2800 [153]" OUT THE BATTLE AND FORCED CHR$EN. "
  393. 2810 [153]" (null)CCLELLAN AND THE (null)NION FORCES AWAY "
  394. 2815 [153]" FROM (null)ICHMOND."
  395. 2820 [137]3520
  396. 2830 [139]A[179][177]4[167]2890
  397. 2840 F$[178]"THE 2ND PEEKULL (null)UN"
  398. 2850 [139]A1[178]1[167]3520
  399. 2855 [153]F$
  400. 2860 [153]" ATNUG 29-30,1862 THE COMBINED LENONFEDERATE
  401. 2870 PRINT"[145] FORCES UNDER [204]EE AND [202]ACKSON DROVE THE"
  402. 2872 PRINT" [213]NION FORCE BACK INTO [215]ASHINGTON"
  403. 2880 GOTO3520
  404. 2890 IFA<>5GOTO2950
  405. 2900 F$="[193]NTIETAM"
  406. 2910 IFA1=1THEN3520
  407. 2915 PRINTF$
  408. 2920 PRINT" [211]EPT 17,1862  THE [211]OUTH FAILED TO  "
  409. 2930 PRINT" INCORPORATE [205]ARYLAND INTO THE "
  410. 2932 PRINT" [195]ONFEDERACY"
  411. 2940 GOTO3520
  412. 2950 IFA<>6THEN3010
  413. 2960 F$="[198]REDERICKSBURG"
  414. 2970 IFA1=1THEN3520
  415. 2975 PRINTF$
  416. 2980 PRINT" [196]EC 13,1862 THE [195]ONFEDERCY UNDER [204]EE"
  417. 2990 PRINT" REPULSED AN ATTACK BY THE [213]NION UNDER
  418. 2992 [153]" CHR$EN. PEEKURNSIDE"
  419. 3000 [137]3520
  420. 3010 [139]A[179][177]7[167]3070
  421. 3020 F$[178]"(null)URFREESBORO"
  422. 3030 [139]A1[178]1[167]3520
  423. 3035 [153]F$
  424. 3040 [153]" STR$EC 31,1862 THE (null)OUTH UNDER CHR$EN. PEEKRAGG  WON A CLOSE BATTLE"
  425. 3060 [137]3520
  426. 3070 [139]A[179][177]8[167]3140
  427. 3080 F$[178]"LENHANCELLORSVILLE"
  428. 3090 [139]A1[178]1[167]3520
  429. 3095 [153]F$
  430. 3100 [153]" (null)AY 1-6,1863 THE (null)OUTH HAD A COSTLY
  431. 3110 PRINT" VICTORY AND LOST ONE OF THEIR  "
  432. 3120 PRINT" OUTSTANDING GENERALS, '[211]TONEWALL'       [202]ACKSON."
  433. 3130 GOTO3520
  434. 3140 IFA<>9THEN3210
  435. 3150 F$="[214]ICKSBURG"
  436. 3160 IFA1=1THEN3520
  437. 3165 PRINTF$
  438. 3170 PRINT" [202]ULY 4,1863  [214]ICKSBURG WAS A COSTLY "
  439. 3180 PRINT" DEFEAT FOR THE [211]OUTH, BECAUSE IT GAVE
  440. 3190 [153]" THE (null)NION ACCESS TO THE (null)ISSISSIPPI."
  441. 3200 [137]3520
  442. 3210 [139]A[179][177]10[167]3280
  443. 3220 F$[178]"CHR$ETTYSBURG"
  444. 3230 [139]A1[178]1[167]3520
  445. 3235 [153]F$
  446. 3240 [153]" MID$UNE 30,1863 A (null)OUTHERN MISTAKE BY CHR$EN.
  447. 3250 PRINT"[145] [204]EE AT [199]ETTYSBURG COST THEM ONE OF THE"
  448. 3260 PRINT" MOST CRUCIAL BATTLES OF THE WAR"
  449. 3270 GOTO3520
  450. 3280 IFA<>11THEN3340
  451. 3290 F$="[195]HICKAMAUGA"
  452. 3300 IFA1=1THEN3520
  453. 3305 PRINTF$
  454. 3310 PRINT" [206]OV 25,1863 AFTER THE [211]OUTH HAD SEIGED"
  455. 3320 PRINT" [199]EN. [210]OCENCRANS'ARMY FOR THREE MONTHS,
  456. 3325 [153]" AND CONTINUED UNTIL CHR$EN. CHR$RANT BROKE"
  457. 3327 [153]" THE SEIGE."
  458. 3330 [137]3520
  459. 3340 [139]A[179][177]12[167]3400
  460. 3350 F$[178]"LENHATTANOOGA"
  461. 3360 [139]A1[178]1[167]3520
  462. 3365 [153]F$
  463. 3370 [153]" (null)EPT15,1863 CONFUSION IN A FOREST NEAR"
  464. 3380 [153]" LENHICKAMAUGA LED TO A COSTLY (null)OUTHERN    VICTORY."
  465. 3390 [137]3520
  466. 3400 [139]A[179][177]13[167]3470
  467. 3410 F$[178]"(null)POTSYLVANIA"
  468. 3420 [139]A1[178]1[167]3520
  469. 3425 [153]F$
  470. 3430 [153]" (null)AY 5,1864 CHR$RANT'S PLAN TO KEEP (null)EE "
  471. 3440 [153]" ISOLATED BEGAN TO FAIL HERE, AND"
  472. 3445 [153]" CONTINUED AT LENOLD LEFT$ARBOUR AND "
  473. 3446 [153]" (null)ETERSBURG."
  474. 3460 [137]3520
  475. 3470 F$[178]"ATNTLANTA"
  476. 3480 [139]A1[178]1[167]3520
  477. 3485 [153]F$
  478. 3490 [153]" ATNUG,1864  (null)HERMAN AND THREE VETERAN "
  479. 3500 [153]" ARMIES CONVERGED ON ATNTLANTA AND DEALT "
  480. 3510 [153]" THE DEATH BLOW TO THE LENONFEDERACY."
  481. 3520 [142]
  482. 3530 [153]" (null)HE CONFEDERACY HAS SURRENDERED"
  483. 3540 [137]3560
  484. 3550 [153]" (null)HE UNION HAS SURRENDERED"
  485. 3560 [141]835:[141]850:[153]""
  486. 3570 [153]" (null)OU HAVE WON ";W;"BATTLE";:[139]W[179][177]1[167][153]"S";
  487. 3572 [153]"ON":[153]
  488. 3580 [153]" (null)OU HAVE LOST ";L;"BATTLE";:[139]L[179][177]1[167][153]"S"
  489. 3582 [153]"ON":[153]
  490. 3590 [139] Y[178]5[167]3630
  491. 3600 [139]W[179][178]L[167]3630
  492. 3610 [153]" (null)HE LENONFEDERACY HAS WON THE WAR"
  493. 3620 [137]3640
  494. 3630 [153]" (null)HE (null)NION HAS WON THE WAR"
  495. 3635 [141]835
  496. 3640 [137]300
  497. 3650 [161]Z$:[139]Z$[178]""[167]3650
  498. 3660 [139]Z$[178]"Y"[167] [142]
  499. 3670 [139]Z$[178]"N"[167][142]
  500. 4000 Q$[178]"                                      "
  501. 4010 [153]"ONONONON":[129]U[178]1[164]4:[153]Q$:[130]:[153]"ONONONONON"
  502. 4020 [142]
  503.